home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
checkpr.zip
/
TESTPR.PRG
< prev
Wrap
Text File
|
1993-01-04
|
865b
|
36 lines
SET TALK OFF
mprinter=0
CLEA
LOAD CHECKPR
@1,0 SAY "Printer to check (0-2)" GET mprinter PICT "9" RANGE 0,2
READ
mprinter=LTRI(STR(mprinter))
CALL CHECKPR WITH mprinter
DO CASE
CASE mprinter="O"
mstat='Printer ready'
CASE mprinter="I"
mstat='Printer I/O error...printer turned off?'
CASE mprinter="N"
mstat='Printer not selected'
CASE mprinter="P"
mstat='Printer out of paper'
CASE mprinter="W"
mstat='Wrong parameter for CHECKPR or I screwed up <grin>'
CASE mprinter="V"
mstat='No printer port?'
CASE mprinter="L"
mstat='Printer offline'
CASE mprinter="C"
mstat='Printer not connected'
CASE mprinter="U"
mstat='Unknown problem with printer'
OTHE
mstat='I definitely screwed up here...CHECKPR choked (whoops)'
ENDC
@3,0 SAY "CHECKPR returns: "+mstat
WAIT
RELE MODU CHECKPR
RETU